UNIT Wrtdisp;

INTERFACE

uses Objects, WinProcs, WinTypes, Strings,
     OWindows,
     CartoCmds, childwnds,
     wtstdhdr, wtgsubs;

{ RTDisp constants }
const
   MaxLineCount  = 100;
   MaxIconicLineCount = 5;
   MaxColorDuration = 10;

{ Main program globals }
var
    nomcat:string;   

{ TNoIconWindow --------------------------------------------------- }

type
  PNoIconWindow = ^TNoIconWindow;
  TNoIconWindow = object(TMyMDIChild)
    constructor Init(AParent: PWindowsObject; ObjectType: Integer;
                      MyTitle: string);
    procedure GetWindowClass(var AWndClass: TWndClass);  virtual;
    function GetClassName: PChar;  virtual;
  end;


IMPLEMENTATION

{ TBaseDemoWindow -------------------------------------------------- }

constructor TNoIconWindow.Init(AParent: PWindowsObject; ObjectType: Integer;
                                MyTitle:string);
begin
  TMyMDIChild.Init(AParent, ObjectType, MyTitle);
end;

{ Alter the default window class record to make this window have
  a white background and no "white box" icon.  }
procedure TNoIconWindow.GetWindowClass(var AWndClass: TWndClass);
begin
  TWindow.GetWindowClass(AWndClass);
  AWndClass.hbrBackground := GetStockObject(White_Brush);
  AWndClass.hIcon := 0;
end;

{ TNoIconWindow --------------------------------------------------- }


{ No need to call the ancestor's method here, since we want to
  provide an entirely new window class name. }
function TNoIconWindow.GetClassName: PChar;
begin
  GetClassName := 'NoIconWindow';
end;

end.